home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Public_2_1991_Stony_Soft_de_Side_B.d64 / j.. stonysoft . (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  529 lines
  1. 0 print"[147]":rem
  2. 1 poke53280,0:poke53281,0:print"":poke53272,24:fori=1to1500:next
  3. 2 poke 53272,22
  4. 4 rem neuseeland kiwi gmbh v.3
  5. 5 rem dont list
  6. 6 printchr$(142):poke53280,0:print"[147]"
  7. 8 dim a$(5):gosub10000:gosub1100
  8. 9 b=15:v=1:bn=0:i=6:r=115:qw=3:eq=2:rq=3
  9. 10 poke53280,0:poke53281,0:printchr$(147):print"[147]":printchr$(142)
  10. 11 printchr$(147):poke53280,0:a=a/100:a=a*100
  11. 12 print" [207][183][183][183][183][183][208]                    [207][183][183][183][183][183][208]
  12. 13 [153]" sgn(NULL)usrusrusr(NULL)+                    sgn (NULL)(NULL)(NULL) +
  13. 14 print" [180][204] [172] [186][170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180] [209][215][209] [170]
  14. 15 [153]" fn usrusrusr +  neuseeland kiwi   sgn     +
  15. 16 print" [183][183][207][183][183][183][183]                    [183][183][183][183][208][183][183]
  16. 17 [153]"     sgn  1-land....2-arbeiter..    +
  17. 18 print"     [180]                            [170]
  18. 19 [153]"     sgn  3-kiwi....4-bepflanzen    +
  19. 20 print"     [180]                            [170]
  20. 21 [153]"     sgn  5-weiter                  +
  21. 22 print"     [180]                            [170]
  22. 23 [153]"     usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":[153]
  23. 24 [153]"     geldsys "a" $
  24. 25 print"     land [154]"c" qkm
  25. 26 [153]"     bepflanzt  "v"  qkm
  26. 27 print"     arbeiter "b""
  27. 28 rem (NULL)
  28. 29 goto9000
  29. 30 print"[147]":poke53280,0
  30. 31 if bn>0 then 120
  31. 32 if rq<0 then rq=1
  32. 35 print" [207][183][183][183][183][183][208]                    [207][183][183][183][183][183][208]
  33. 36 [153]" sgn(NULL)usrusrusr(NULL)+                    sgn (NULL)(NULL)(NULL) +
  34. 37 print" [180][204] [172] [186][170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180] [209][215][209] [170]
  35. 38 [153]" fn usrusrusr +  neuseeland kiwi   sgn     +
  36. 39 print" [183][183][207][183][183][183][183]                    [183][183][183][183][208][183][183]
  37. 40 [153]"     sgn  1-land kaufen             +
  38. 41 print"     [180]                            [170]
  39. 42 [153]"     sgn  2-land verkaufen          +
  40. 43 print"     [180]                            [170]
  41. 44 [153]"     sgn  3-zurueck                 +
  42. 45 print"     [180]                            [170]
  43. 46 [153]"     usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  44. 47 print"     geld "a" $  "
  45. 48 print"     land "c" qkm"
  46. 50 get c$:ifc$="" then 50
  47. 53 on val (c$) goto 57,70,11
  48. 54 gosub 50
  49. 57 d=int(100*rnd(1))+1
  50. 60 printspc(3)" wieviel land kaufen (1qkm="d"$)"
  51. 61 input" ---> ";m
  52. 62 q=m*d:a=a-q:c=c+m
  53. 63 if a>0 and a<1000 then80
  54. 64 fori=1to500:next
  55. 65 if i>0 then 30
  56. 70 d=int(100*rnd(1))+1
  57. 71 printspc(3)" wieviel land verkaufen (1qkm="d"$)"
  58. 72 input" ---> ";o
  59. 73 if o>c then 30
  60. 74 y=o*d:a=a+y:c=c-o:v=v-o
  61. 75 if a>o and a<1000 then 80
  62. 76 fori=1to500:next
  63. 77 if v<0 then v=0
  64. 78 if i>0 then 30
  65. 80 printchr$(147)
  66. 83 print" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]
  67. 85 [153]" (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)+"
  68. 87 [153]" sgn          --- kredit ---           ++"
  69. 89 [153]" sgn                                   ++"
  70. 91 [153]" (NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr(NULL)
  71. 92 printspc(3)" geld "a" $"
  72. 93 printspc(3)" willst du einen kredit aufnehmen ?"
  73. 94 input" ---> (j/n) ";x$
  74. 95 if x$="n" orx$="nein" then 11
  75. 96 if x$="j" orx$="ja" then 100
  76. 97 gosub 80
  77. 100 w=a*10
  78. 101 printspc(3)" deine bank gewaehrt dir einen"
  79. 102 printspc(3)" kredit von "w" $"
  80. 105 a=a+w:bn=bn+1
  81. 110 fori=1to2000:next
  82. 111 if i>0 then 11
  83. 120 poke53280,2:print"[147]"
  84. 121 vb=vb+1
  85. 122 if vb>3 then 160
  86. 130 print" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]
  87. 131 [153]" (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)+"
  88. 132 [153]" sgn          --- kredit ---           ++"
  89. 133 [153]" sgn                                   ++"
  90. 134 [153]" (NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr(NULL)
  91. 135 printspc(3)" [154]die  "vb" rate wird faellig !!!"
  92. 136 ad=w/5
  93. 137 printspc(3)" sie hat die hoehe von "ad" $"
  94. 138 if ad>a then 145
  95. 139 a=a-ad
  96. 141 if i>0 then 153
  97. 142 rem ich sagte doch nicht listen !
  98. 143 rem (NULL)
  99. 150 printspc(3)" da du nicht genung geld hast"
  100. 151 printspc(3)" pfaendet die bank teile deines":c=2:printspc(3)" landes"
  101. 153 printspc(25)"[144]-taste-"
  102. 154 gete$:ife$="" then 154
  103. 155 if i>0 then 11
  104. 160 print"[147]":poke53280,6
  105. 161 print" [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]
  106. 162 [153]" (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)+"
  107. 163 [153]" sgn        neuseeland kiwi gmbh       ++"
  108. 164 [153]" sgn                                   ++"
  109. 165 [153]" (NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr(NULL)
  110. 166 printspc(3)" gute nachricht :"
  111. 167 printspc(3)" du hast deinen kredit der bank"
  112. 168 printspc(5)" zurueck gezahlt !"
  113. 169 a=a+1000:printspc(3)" geld "a" $"
  114. 170 printspc(25)"[144]-taste-"
  115. 171 get e$:ife$="" then 171
  116. 172 if i>0 then 11
  117. 200 printchr$(147)"":poke53280,0
  118. 201 if b>100then 2000
  119. 205 a=a/100:a=a*100
  120. 210 print" [207][183][183][183][183][183][208]                    [207][183][183][183][183][183][208]
  121. 211 [153]" sgn(NULL)usrusrusr(NULL)+                    sgn (NULL)(NULL)(NULL) +
  122. 212 print" [180][204] [172] [186][170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180] [209][215][209] [170]
  123. 213 [153]" fn usrusrusr +  neuseeland kiwi   sgn     +
  124. 214 print" [183][183][207][183][183][183][183]                    [183][183][183][183][208][183][183]
  125. 215 [153]"     sgn  1-arbeiter einstellen     +
  126. 216 print"     [180]                            [170]
  127. 217 [153]"     sgn  2-arbeiter entlassen      +
  128. 218 print"     [180]                            [170]
  129. 219 [153]"     sgn  3-zurueck                 +":[137]8000
  130. 220 [161] v$:[139]v$[178]"" [167] 220
  131. 221 [145] [197] (v$) [137] 225,240,11
  132. 222 [141] 220
  133. 225 [153][166]3)" wieviele arbeiter einstellen ?":rf[178][181](50[172][187](1))[170]1
  134. 226 [133]" ---> ";n
  135. 227 w[178]n[172]rf:a[178]a[171]w
  136. 230 b[178]b[170]n
  137. 231 [153][166]30)"-taste-"
  138. 232 [161] a$:[139]a$[178]"" [167] 232
  139. 233 [139] i[177]0 [167] 200
  140. 240 [153][166]3)" wieviele arbeiter entlassen ?"
  141. 241 [133]" ---> ";df
  142. 242 [139] df[177]b [167] 200
  143. 243 [139] df[177]20 [167] 250
  144. 244 b[178]b[171]df
  145. 245 [153][166]30)"-taste-"
  146. 246 [161] q$:[139]q$[178]"" [167] 246
  147. 248 [139] i[177]0 [167] 200
  148. 250 [153][166]3)" die gewerkschaft ist damit "
  149. 251 [153][166]3)" nicht einverstanden !"
  150. 252 [139] i[177]0 [167] 245
  151. 300 [153][199](147)"":[151]53280,0
  152. 301 [153]" (NULL)usrusrusrusrusr(NULL)                    (NULL)usrusrusrusrusr(NULL)
  153. 302 print" [180][206][183][183][183][205][170]                    [180] [215][209][215] [170]
  154. 303 [153]" sgn(NULL) * sqr+usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrsgn (NULL)(NULL)(NULL) +
  155. 304 print" [165] [183][183][183] [170]  neuseeland kiwi   [180]     [170]
  156. 305 [153]" usrusr(NULL)usrusrusrusr                    usrusrusrusr(NULL)usrusr
  157. 306 print"     [180]  1-kiwi pflanzen kaufen    [170]
  158. 307 [153]"     sgn                            +
  159. 308 print"     [180]  2-kiwi pflanzen verkaufen [170]
  160. 309 [153]"     sgn                            +
  161. 310 print"     [180]  3-zurueck                 [170]
  162. 312 [153]"     sgn                            +
  163. 313 print"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  164. 314 [153]"     geld "a""
  165. 315 [153]"     kiwi pflanzen "r"
  166. 316 print"     land "c" qkm"
  167. 320 get m$:ifm$="" then 320
  168. 321 on val(m$) goto 330,350,11
  169. 322 gosub 320
  170. 330 printspc(3)" wieviel pflanzen kaufen ?"
  171. 331 printspc(3)" stueck 2 $"
  172. 333 input "--> ";lo
  173. 334 r=r+lo
  174. 335 we=lo*2
  175. 336 a=a-we
  176. 337 printspc(30)"-taste-"
  177. 340 get a$:ifa$="" then 340
  178. 341 if i>0 then 300
  179. 350 printspc(3)" wieviel pflanzen verkaufen"
  180. 351 printspc(3)" stueck 1 $"
  181. 352 input"--> ";gh
  182. 353 if gh>r then 300
  183. 354 printspc(30)"-taste-
  184. 355 [161] s$:[139]s$[178]"" [167] 355
  185. 358 [139] i[177]0 [167] 300
  186. 400 [153][199](147)"":[151] 53280,0
  187. 401 [153]" (NULL)usrusrusrusrusr(NULL)                    (NULL)usrusrusrusrusr(NULL)
  188. 402 print" [180][206][183][183][183][205][170]                    [180] [215][209][215] [170]
  189. 403 [153]" sgn(NULL) * sqr+usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrsgn (NULL)(NULL)(NULL) +
  190. 404 print" [165] [183][183][183] [170]  neuseeland kiwi   [180]     [170]
  191. 405 [153]" usrusr(NULL)usrusrusrusr                    usrusrusrusr(NULL)usrusr
  192. 406 print"     [180]   1-bepflanzen             [170]
  193. 407 [153]"     sgn                            +
  194. 408 print"     [180]   2-entpflanzen            [170]
  195. 409 [153]"     sgn                            +
  196. 410 print"     [180]   3-zurueck                [170]
  197. 411 [153]"     sgn                            +
  198. 412 print"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  199. 414 [153]"      bepflanzt "v" qkm
  200. 415 print"      kiwi pflanzen "r" "
  201. 416 print"      land "c" qkm":goto9800
  202. 417 printspc(3)" wieviel qkm bepflanzen ?"
  203. 418 input" ---> ";tr
  204. 419 if tr>c then 400
  205. 420 v=v+tr
  206. 421 if v>c then v=c
  207. 425 goto 400
  208. 426 get a$:ifa$="" then 426
  209. 427 if i>0 then 11
  210. 500 printchr$(147):poke53281,6:poke53280,0:printchr$(14):wf=b*v:wf=wf*r:a=a+wf
  211. 501 print"[147]"
  212. 502 printspc(3)" [196]ein [213]msatz war "wf" $":if a<0 then 506
  213. 503 printspc(3)" [215]ieviel [204]oehne fuer deine arbeiter":input" ---> ";sd
  214. 504 if sd>a then 501                 :  printspc(3)" ok "sd" [204]oehne "
  215. 505 a=a-sd :ed =v*150:a=a-sd:a=a-ed
  216. 506 printspc(3)" [193]userdem hast du "ed" $"
  217. 507 printspc(3)" an die [211]teuer gezahlt ."
  218. 508 printspc(3)" [197]s bleiben dir "a" $"
  219. 509 if a>100000then 520
  220. 510 print
  221. 511 if zq>0 thenprintspc(3)" [196]eine [194]ohrinsel macht 1 mio [199]ewinn":a=a+1000000
  222. 514 printspc(30)"-[212][193][211][212][197]-":a=a/100:a=a*100
  223. 515 get r$:ifr$="" then 515
  224. 516 if i>0 then 549
  225. 520 printspc(3)" [197]in gutes [202]ahr !"
  226. 521 if i>0 then 511
  227. 549 goto 20000
  228. 550 print"[147]":poke53280,0:poke53281,0:printchr$(142):print"[147]
  229. 551 [139] qw[179]0 [167] qw[178]0
  230. 552 [139] eq[179]0 [167] eq[178]0
  231. 553 [139] rq[179]0 [167] rq[178]0
  232. 555 [153]" (NULL)usrusrusrusrusr(NULL)                    (NULL)usrusrusrusrusr(NULL)
  233. 556 print" [180][206][183][183][183][205][170]                    [180] [205][175][206] [170]
  234. 557 [153]" sgn(NULL) * sqr+usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrsgn (NULL)usr(NULL) +
  235. 558 print" [165] [183][183][183] [170]  neuseeland kiwi   [180]     [170]
  236. 559 [153]" usrusr(NULL)usrusrusrusr                    usrusrusrusr(NULL)usrusr
  237. 560 print"     [180]          handel            [170]
  238. 565 [153]"     sgn                            +
  239. 570 print"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  240. 571 [153][166]3)" [ 1 ] werbung           "
  241. 572 [153][166]3)" [ 2 ] lagerhallen (100000)"
  242. 573 [153][166]3)" [ 3 ] fahrzeuge (5000)"
  243. 574 [153][166]3)" [ 4 ] alles verkaufen ":[153][166]3)" [ 5 ] weiter"
  244. 575 [153][166]3)" geld "a" $  fahrzeuge "rq""
  245. 576 [153][166]3)" lagerhallen "qw"
  246. 578 get m$:ifm$="" then 578
  247. 579 on val(m$) goto6000,605,610,620,680
  248. 580 gosub 578
  249. 600 eq=eq+1:a=a-10000
  250. 601 if i>0 then 550
  251. 605 qw=qw+1:a=a-100000
  252. 606 if i>0 then 550
  253. 610 rq=rq+1:a=a-5000
  254. 611 if i>0 then 550
  255. 620 print"[147]":printspc(3)" ganz sicher (j/n) ?"
  256. 621 input " ---> ";g$
  257. 622 if g$="j" org$="ja" then 630
  258. 623 if i>0 then 550
  259. 630 printspc(3)" ok.":fori=1to1000:next:gosub 30000
  260. 631 qs=rq*10000:a=a+qs:printspc(3)" dein vermoegen ist "a" dollar"
  261. 632 printspc(30)"-taste-"
  262. 633 get h$:ifh$="" then 633
  263. 634 printspc(3)" tschuess ... "
  264. 635 sys 64738
  265. 680 a$(1)=" 1 lagerhalle ist abgebrannt !"
  266. 682 a$(2)=" 1 scheune ist abgebrannt"
  267. 684 a$(3)=" 1 fahrzeug ist verunglueckt"
  268. 685 a$(4)=" du gewinnst 1 mio im lotto"
  269. 686 a$(5)=" du erbst 10000 $"
  270. 693 k=int(5*rnd(1))+1
  271. 695 print"[147]":poke53280,0
  272. 696 print"        [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205]
  273. 697 [153]"        (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)+"
  274. 698 [153]"        sgn   gmbh                 ++
  275. 699 print"        [180]            peter diehm [170][170]"
  276. 700 print"       [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][206]":print"":i=1
  277. 701 if k=1 then printspc(3)  a$(1):qw=qw-1
  278. 702 if k=2 then printspc(3)  a$(2):eq=eq-1
  279. 703 if k=3 then printspc(3)  a$(3):rq=rq-1
  280. 704 if k=4 then printspc(3)   a$(4):a=a+1000000
  281. 705 if k=5 then printspc(3)   a$(5):a=a+10000
  282. 707 if a>1000000then 710
  283. 708 if i>0 then 720
  284. 710 oq=oq+1
  285. 711 if oq>1 then 720
  286. 712 printspc(3)" du wirst zum buergermeister"
  287. 713 printspc(3)" gewaehlt !!!"
  288. 714 printspc(3)" du spendest 5000 $ an die"
  289. 715 printspc(3)" oertliche schule !"
  290. 716 a=a-5000
  291. 720 printspc(30)"-taste-"
  292. 721 get h$:ifh$="" then 721
  293. 722 poke 53280,0
  294. 723 if i>0 then 800
  295. 725 gq=gq+1
  296. 726 if gq=>2then 800
  297. 727 print"[147]":printspc(3)" deine partei waehlt"
  298. 728 printspc(3)" dich in den landtag.
  299. 729 [153][166]3)" du bekommst aus der parteikasse"
  300. 730 [153][166]3)" 50000 $ !":a[178]a[170]50000
  301. 731 [139] i[177]0 [167] 820
  302. 732 kq[178]kq[170]1
  303. 733 [139] kq[178][179]3[167] 11
  304. 734 [153]"load":[153][166]3)" deine werksfussball mannschaft"
  305. 735 [153][166]3)" gewinnt den neuseeland cup !"
  306. 736 [153][166]3)" du veranstalltest ein fest fuer"
  307. 737 [153][166]3)" alle fans !":[153][166]3)" kosten 114674 $":a[178]a[171]114674:kq[178]1
  308. 738 [139] i[177]0 [167] 820
  309. 740 gq[178]gq[170]1
  310. 741 [139] gq[178][179]3[167] 11
  311. 742 [153]"load":[153][166]3)" deine partei waehlt dich"
  312. 743 [153][166]3)" in das parlament !"
  313. 744 [153][166]3)" du bekommst 40000 $":a[178]a[170]40000:gq[178]0
  314. 745 [139] i[177]0 [167] 820
  315. 750 [153]
  316. 751 [139] pq[177]10[167] 753
  317. 752 [139] i[177]0 [167] 801
  318. 753 sq[178][181](2[172][187](1))[170]1
  319. 754 [139] sq[178]2 [167] 11
  320. 760 [153]"load":[153][166]3)" traurige nachricht der"
  321. 761 [153][166]3)" besitzer der kiwi gmbh ist"
  322. 762 [153][166]3)" gestorben !"
  323. 763 [153][166]25)"stop-taste-"
  324. 764 [161] v$:[139]v$[178]"" [167] 764
  325. 765 [153][166]3)" tschuess !":[129]i[178]1[164]2000:[130]:[151]53272,24:[128]
  326. 800 [139] i[177]0 [167] 750
  327. 801 [153][199](147):[151] 53280,0:pq[178]pq[170]1
  328. 802 [139] a[177]5000000 [167] 990
  329. 803 [145] pq [137] 740,732,725,725,740,725
  330. 820 [153][166]3)" geld "a" dollar"
  331. 821 [153][166]25)"stop-taste-"
  332. 823 [161] x$:[139]x$[178]"" [167] 823
  333. 831 [139] i[177]0 [167] 11
  334. 855 [151]53280,0:[153][199](5):[153]"  "
  335. 857 [151]53281,0:[151]53280,0
  336. 860 [153][166]4)" (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  337. 861 printspc(4)" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][170]"
  338. 862 printspc(4)" [180]                            [170][170]"
  339. 865 printspc(4)" [180]                            [170][170]"
  340. 866 printspc(4)" [180]                            [170][170]"
  341. 867 printspc(4)" [180]                            [170][170]"
  342. 868 printspc(4)" [180]                            [170][170]"
  343. 869 printspc(4)" [180]                            [170][170]"
  344. 870 printspc(4)" [180]  ------------------------- [170][170]"
  345. 871 printspc(4)" [180]                            [170][170]"
  346. 872 printspc(4)" [180]                            [170][170]"
  347. 875 printspc(4)" [180]  [144]v.2 9/90                  [170][170]
  348. 890 [153][166]4)" (NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr(NULL)
  349. 891 fori=1to1000:next:return
  350. 892 print"[147]"chr$(14)
  351. 893 printspc(3)" [196]urch einen [194]rand liegt deine"
  352. 894 printspc(3)" [208]lantage in [211]chutt und [193]sche.
  353. 895 [153][166]3)" str$u versuchst sie nun wieder"
  354. 896 [153][166]3)" aufzubauen. (NULL)as garnicht so ein-
  355. 899 printspc(3)" fach ist wie man denkt !
  356. 900 [153][166]3)" aber du kannst es schaffen.
  357. 901 printspc(3)" [214]iel [211][208][193][211][211] [186]":print
  358. 902 print"":printspc(30)"-taste-"
  359. 903 get d$:ifd$="" then 903
  360. 905 return
  361. 990 cq=cq+1
  362. 991 if cq=2 then 1000
  363. 992 if cq=4 then 1019
  364. 993 if cq=6 then 1040
  365. 994 if i>0 then 11
  366. 1000 print"[147]"
  367. 1001 printspc(3)" du wirst zum praesidenten des"
  368. 1002 printspc(3)" millionaers club gewaehlt."
  369. 1003 printspc(25)"[144]-taste-"
  370. 1004 get r$:ifr$="" then 1004
  371. 1005 if i>0 then 11
  372. 1019 print"[147]"
  373. 1020 printspc(3)" du heiratest eine adlige und"
  374. 1021 printspc(3)" bekommst den titel graf eddie
  375. 1022 [153][166]30"-taste-"
  376. 1025 [161] c$:[139]c$[178]"" [167] 1025
  377. 1026 [139] i[177]0 [167] 11
  378. 1040 [153]"load"
  379. 1041 [153][166]3)" du kaufst dir eine oel "
  380. 1042 [153][166]3)" bohrinsel fuer 3 mio."
  381. 1043 a[178]a[171]3000000
  382. 1044 zq[178]zq[170]1
  383. 1045 [153][166]30)"-taste-"
  384. 1046 [161] f$:[139]f$[178]"" [167] 1046
  385. 1047 [139] i[177]0 [167] 11
  386. 1100 [153]"load":[153][199](14):[151]53280,0:[153][166]3)" str$ein ascamilienname ?"
  387. 1101 [153][166]3)"---------------------"
  388. 1102 [133]"   ---> ";g$
  389. 1103 [139] [195](g$)[178][179]0 [176] [195] (g$) [177]10 [167] 1100
  390. 1104 [153][166]3)" (NULL)iel (NULL)pass (NULL)ippe "g$" !"
  391. 1105 [129]i[178]1[164]2000:[130]
  392. 1107 [139] i[177]0 [167] 3000
  393. 1108 [143] peter diehm
  394. 1109 [143] waldstr.58
  395. 1110 [143] 6149 rimbach 1
  396. 1111 [143] --------------
  397. 2000 [153][199](147):[151]53280,14:[151]53280,0:[153][199](5):[153]"load"
  398. 2100 [153]" (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  399. 2110 print" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][170]"
  400. 2111 print" [180]       --- gewerkschaft ---        [170][170]"
  401. 2222 print" [180]                                   [170][170]"
  402. 2225 print" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][206]
  403. 2230 [139] b[177]120[167] 2250
  404. 2231 [153][166]3)" fuer besserere arbeitsplaetze":mk[178]rq[172]10000:mk[178]mk[170]10000
  405. 2232 [153][166]3)" gibst du "mk" $ aus"
  406. 2233 a[178]a[171]mk
  407. 2245 [139] i[177]0 [167] 2500
  408. 2250 [153][166]3)" deine arbeiter streiken !!!":[129]i[178]1[164]3000:[130]
  409. 2251 mj[178]qw[172]20000:mj[178]mj[170]20000
  410. 2253 a[178]a[171]mj:b[178]80
  411. 2259 [153][166]3)" du machst "mj" $ verlust !"
  412. 2500 [153][166]30)"-taste-"
  413. 2600 [161] l$:[139]l$[178]"" [167] 2600
  414. 2610 [137]200
  415. 3000 [153][199](147):[151]53280,0
  416. 3001 [153][199](14)"          (NULL)chwierigkeitsgrad           sqr"
  417. 3002 [153]" 1--> (NULL)ichtskoenner.....
  418. 3003 print"[158] 2--> [193]mateur...........
  419. 3004 [153]"cont 3--> (NULL)rofi.............
  420. 3005 print" 4--> [199]enie.............
  421. 3006 [133]" --->clr (NULL)aehle ";cb
  422. 3008 [139] cb[178]1 [167] a[178]15000:c[178]30
  423. 3010 [139] cb[178]2 [167] a[178]10000:c[178]10
  424. 3012 [139] cb[178]3 [167] a[178]5000:c[178]5
  425. 3014 [139] cb[178]4 [167] a[178]100:c[178]2
  426. 3020 [139] cb[177]4 [167] 3000
  427. 3030 [153][166]30)"-taste-"
  428. 3050 [161] h$:[139]h$[178]"" [167] 3050
  429. 3060 [151]53280,0:[142]
  430. 3070 [143] 20.9.1990
  431. 6000 [143] werbung
  432. 6001 [153]"load"
  433. 6010 [153]" (NULL)usrusrusrusrusr(NULL)                    (NULL)usrusrusrusrusr(NULL)
  434. 6020 print" [180][206][183][183][183][205][170]                    [180] [205][175][206] [170]
  435. 6030 [153]" sgn(NULL) * sqr+usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrsgn (NULL)usr(NULL) +
  436. 6034 print" [165] [183][183][183] [170]  neuseeland kiwi   [180]     [170]
  437. 6035 [153]" usrusr(NULL)usrusrusrusr                    usrusrusrusr(NULL)usrusr
  438. 6040 print"     [180]           werbung          [170]
  439. 6043 [153]"     sgn                            +
  440. 6044 print"     [180]  1-zeitungswerbung (1000)  [170]
  441. 6045 [153]"     sgn                            +
  442. 6046 print"     [180]  2-fernsehwerbung  (20000) [170]
  443. 6047 [153]"     sgn                            +
  444. 6050 print"     [180]  3-zurueck                 [170]
  445. 6055 [153]"     sgn                            +
  446. 6056 print"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  447. 6059 [153]"     geld "a" $"
  448. 6060 [143] [204]
  449. 6100 [161] d$:[139]d$[178]"" [167] 6100
  450. 6111 [145] [197](d$) [137] 6130,6140,550
  451. 6115 [137] 6100
  452. 6130 a[178]a[171]1000:b[178]b[170]2:r[178]r[170]15
  453. 6134 [139] i[177]0 [167] 6000
  454. 6140 a[178]a[171]20000:b[178]b[170]10:r[178]r[170]50
  455. 6145 [139] i[177]0 [167] 6000
  456. 8000 [153]"     sgn                            +
  457. 8001 print"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  458. 8010 print"     geld "a" $"
  459. 8011 print"     arbeiter "b" ":goto220
  460. 9000 geth$:ifh$="" then 9000
  461. 9001 onval(h$) goto9100,200,300,400,500
  462. 9010 goto9000
  463. 9100 ifa<-10000 then1000
  464. 9101 ifeq <0 then eq=1
  465. 9105 ifqw <0 thenwq=1
  466. 9200 goto 30
  467. 9800 get d$:ifd$="" then 9800
  468. 9802 on val(d$) goto 417,9810,10
  469. 9805 goto 9800
  470. 9810 printspc(3)" wieviel qkm ";:input hm
  471. 9811 if hm>v then 400
  472. 9812 if v<0 then v=0
  473. 9813 v=v-hm
  474. 9815 goto 400
  475. 10000 rem anfang
  476. 10001 gosub 855
  477. 10010 poke 782,24:poke781,10:sys 65520:print
  478. 10012 printspc(13)" peter diehm
  479. 10015 [129]i[178]1[164]1000:[130]
  480. 10016 [151] 782,24:[151] 781,10:[158]65520:[153]
  481. 10020 [153][166]13)"   presents    "
  482. 10024 [129]i[178]1[164]1000:[130]
  483. 10030 [151]782,24:[151]781,10:[158]65520:[153]
  484. 10040 [153][166]8 )" neuseeland kiwi gmbh ii":[129]i[178]1[164]2000:[130]
  485. 10042 [153]""
  486. 10043 [153][166]9)" (c) by peter diehm 90 "
  487. 10050 [129]i[178]1[164]2000:[130]:[137]892
  488. 20000 [153]"load"[199](142)
  489. 20010 [153][166]5)" moral :"
  490. 20012 [139] a[177]100000 [167]21000
  491. 20015 [139] a[179]100000 [167] 20100
  492. 20100 [143]
  493. 20120 [153][166]5)"   (NULL)andandandandandright$
  494. 20123 printspc(5)"   [194]     [194]
  495. 20125 [153][166]5)"   peek (NULL) (NULL) peek
  496. 20130 printspc(5)"   [205]     [206]
  497. 20140 [153][166]5)"    sgn   +
  498. 20150 printspc(5)"    [180][213][210][201][170]
  499. 20154 [153][166]5)"    (NULL)andandand(NULL)
  500. 20156 printspc(30)"-taste-"
  501. 20200 get c$:ifc$="" then20200
  502. 20211 goto 550
  503. 21000 rem
  504. 21120 printspc(5)"   [213][175][175][175][175][175][201]
  505. 21123 [153][166]5)"   peek     peek
  506. 21125 printspc(5)"   [194] [215] [215] [194]
  507. 21130 [153][166]5)"   (NULL)     (NULL)
  508. 21140 printspc(5)"    [180]   [170]
  509. 21150 [153][166]5)"    sgnmid$(NULL)(NULL)+
  510. 21154 printspc(5)"    [205][175][175][175][206]
  511. 21156 [153][166]30)"-taste-
  512. 21200 get c$:ifc$="" then20200
  513. 21211 goto 550
  514. 30000 rem tja
  515. 30010 print"[147]"chr$(14)
  516. 30012 printspc(5)" [196]a [206]euseeland [203]iwi [199]mb[200] [201]
  517. 30015 [153][166]5)" einige ascehler hatte die wir
  518. 30020 printspc(5)" erst spaeter erkannt haben
  519. 30030 [153][166]5)" (NULL)chuffen wir (NULL)iwi right$right$    "
  520. 30034 [153][166]5)" left$ochachtungsvoll "
  521. 30040 [153][166]5)" (NULL).str$iehm & atn.(NULL)eitner
  522. 30045 printspc(30)"-[212][193][211][212][197]-"
  523. 30050 get f$:iff$="" then 30050
  524. 30055 print"[147]":printchr$(142)
  525. 30057 return
  526. 30060 rem jetzt ist schluss
  527. 30065 rem jetzt kommen die wichtigendaten
  528. 30067 rem (NULL)
  529.